Ultra Gameplayers 109/Ultra Gameplayers 109.iso/pc/media/new_ugp.dxr/00217_GameCtrl Class.ls

Text File | 1998-02-10 | 1.5 KB | 49 lines

property gameList, miniControllers, bigControllers, miniSprite, bigSprite

on new me, paramList
  set gameList to getProp(paramList, #gameList)
  set miniSprite to getProp(paramList, #miniSprite)
  set bigSprite to getProp(paramList, #bigSprite)
  if stringp(memberNum) then
    set memberNum to the number of member memberNum
  end if
  set miniControllers to [#Nintendo_64: "ugpC_40", #PlayStation: "ugpC_20", #Saturn: "ugpC_30"]
  set bigControllers to [#Nintendo_64: "ugpC_41", #PlayStation: "ugpC_21", #Saturn: "ugpC_31"]
  return me
end

on TurnOn me, spritenum, lineNum
  set memberNum to the memberNum of sprite spritenum
  set currName to line lineNum of the text of member memberNum
  set currGame to 0
  repeat with game in gameList
    if the name of game = currName then
      set currGame to game
      exit repeat
    end if
  end repeat
  if objectp(currGame) then
    set platform to symbol(the category of currGame)
    set the memberNum of sprite miniSprite to the number of member getProp(miniControllers, platform)
    set the memberNum of sprite bigSprite to the number of member getProp(bigControllers, platform)
    updateStage()
  else
    set nameList to "|"
    repeat with game in gameList
      set nameList to nameList & the name of game & "|"
    end repeat
    put "No game match: name:" && currName && "game list:" && nameList
  end if
end

on TurnOff me
end

on dispose me
  set gameList to []
  set miniControllers to 0
  set bigControllers to 0
  set miniSprite to 0
  set bigSprite to 0
end